home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / comm / mmgr / MM_PowerFix.lha / Extra / xTractPolicies.rexx next >
OS/2 REXX Batch file  |  1997-06-02  |  949b  |  37 lines
  1. /*
  2. ** Gem/konverter region 23 konference-regler
  3. ** © 1997 af Jacob Laursen
  4. */
  5.  
  6. options results
  7. parse arg file
  8.  
  9. path = 'T:Policy/'
  10. text = 'konfregl.txt'
  11. dest = 'MM:Config/MM_PowerFix/Policy/AreaFix/'
  12.  
  13. address command 'makedir T:Policy'
  14. address command 'echo "CD T:Policy" >T:Policy.scp'
  15. address command 'echo "unzip 'file'" >>T:Policy.scp'
  16. address command 'execute T:Policy.scp'
  17. address command 'delete T:Policy.scp'
  18.  
  19. call open(file,path || text,'r')
  20. say 'File: ['text'] opened.' || '0a'x
  21.  
  22. do until eof(file) = 1
  23.    line = readln(file)
  24.    if line ~= '' then do
  25.       if left(line,17) = 'Echo           : ' then newname = substr(line,18,length(line)-18)
  26.       if left(line,17) = 'Rules filename : ' then do
  27.          oldname = strip(substr(line,18,12))
  28.          address command 'charconv 'path || oldname' 'dest || newname' DANSK AMIGA LF'
  29.          say newname || '... done!'
  30.       end
  31.    end
  32. end
  33.  
  34. call close(file)
  35. address command 'delete 'path' all'
  36.  
  37.